home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 100
/
100.d81
/
ls contest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
37 lines
5 dimw$(200)
10 dv=peek(186):ifdv<8thendv=8
15 sys57812"input any ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
16 sys52736,"questions",dv
18 sp$=" "
20 poke53281,0:poke53280,0:print"[147]"
30 print"[129] [204][207][193][196][211][212][193][210]'[211] 100[212][200] [201][211][211][213][197] [195][197][204][197][194][210][193][212][201][207][206]"
40 print" [212][210][201][214][201][193] [195][207][206][212][197][211][212]"
50 print"[159] [211]et top of form and press [210][197][212][213][210][206][159] when
60 [153]" read to print. right$t will use two sheets
70 print" of paper and will wait between sheets.
80 [151]780,4:[151]144,0:[158]65457:d[178]st:[158]65454:d[178]d[176]st
90 [139]d[167][151]214,20:[153]:[153]"sys (NULL)urn your printer on.":[137]80
95 [151]198,0
96 [161]a$:[139]a$[179][177][199](13)[167]96
100 [151]781,21:[158]59903
110 [159]4,4,7
120 [129]i[178]0[164]59:[152]4," "w$(i)[200](sp$,40[171][195](w$(i)))w$(60[170]i)
130 [130]:[129]i[178]0[164]12:[152]4:[130]
140 [151]214,12:[153]:[153]" open(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to print the second page.
150 geta$:ifa$<>chr$(13)then150
160 fori=120to154:print#4," "w$(i)left$(sp$,40-len(w$(i)))w$(35+i)
170 next:fori=0to23:print#4:next
180 close4
190 poke214,12:print:print" [208]ress [210][197][212][213][210][206][159] to print another entry. "
200 print" [193]ny other key exits to [154][204][207][193][196][211][212][193][210][159].
205 [151]198,0
210 [161]a$:[139]a$[178]""[167]210
220 [139]a$[178][199](13)[167]20
230 [129]i[178]8[164]9:[159]15,i,15,"r0:hello connect=hello connect":[132]15,er:[160]15
240 [139]er[178]63[167]dv[178]i:i[178]9:[130]:[137]260
250 [130]:[153]"load":[128]
260 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
270 [153]"run"
280 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"s0:ls contest":[160]15:[148]"ls contest",8:[128]